vba do until loop

visit shbcf.ru